home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
pc_board
/
lfgtpwd.zip
/
FORGETPW.PPE
(
.txt
)
next >
Wrap
PCBoard Programming Language Executable
|
1993-05-18
|
4KB
|
146 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
String STRING001
String STRING002
String STRING003
;------------------------------------------------------------------------------
GetUser
Print "@CLS@"
PrintLn "@X5FIS @X0A Current User ID: @X0B@USER@"
PrintLn "@X5FTHIS @X0A City/State : @X0B@CITY@"
PrintLn "@X5FYOU? @X0A Last Time On : @X0B@LASTDATEON@ @X0Aat @X0B@LASTTIMEON@"
PrintLn
STRING001 = ""
InputYN "Does the above information belong to you", STRING001, 14
If (STRING001 <> YesChar()) Goto LABEL002
PrintLn "@CLS@@X0FIf you are a registered user on this system@X07 and simply forgot your password"
PrintLn "then we can help you out, by changing your password for you, if you wil first"
PrintLn "verify the following information for us:"
PrintLn
PrintLn "@X38┌─────────────────────────────────────────────────────────────────────────@X3B┐@X07"
PrintLn "@X38│@X3E a) Your voice @X3Fphone number@X3E @X3B│@X07"
PrintLn "@X38│@X3E b) The @X3Fnew password@X3E you would like to use on this system @X3B│@X07"
PrintLn "@X38│ @X3B│@X07"
PrintLn "@X38│@X31We need @XBFBOTH@X31 pieces of information in order to change your password!! @X3B│@X07"
PrintLn "@X38└@X3B─────────────────────────────────────────────────────────────────────────┘@X07"
PrintLn
STRING001 = ""
AdjTime 5
STRING002 = ""
STRING003 = ""
:LABEL001
PrintLn
PrintLn
InputText "What is your voice phone number", STRING002, 14, 20
PrintLn
InputText "What would you like your NEW PASSWORD to be", STRING003, 14, 12
PrintLn
PrintLn
STRING001 = ""
InputYN "Is all of the above information correct", STRING001, 14
PrintLn
If (STRING001 <> YesChar()) Goto LABEL001
PrintLn "@CLS@@X03"
PrintLn "Your answers will be placed into a COMMENT where the Sysop can read them"
PrintLn "and process your request. This is usually done within a few hours."
PrintLn
PrintLn "@X0FYou will now be placed into the message editor where you may provide any"
PrintLn "other comments and/or edit the answers you have given."
PrintLn
More
KbdStuff "Y" + Chr(13)
If ((U_FSEP == 1) && (U_FSE == 0)) KbdStuff "N" + Chr(13)
KbdStuff "Voice Number : " + STRING002 + Chr(13)
KbdStuff "New Password : " + STRING003 + Chr(13)
KbdStuff "I forgot my password! Could you verify me and change it?" + Chr(13)
End
:LABEL002
PrintLn
PrintLn "@CLS@@X0FSince that user information did NOT belong to you@X0F, please call back using a"
PrintLn "different user-id, perhaps adding a middle initial to make your logon-id unique"
PrintLn "for this system."
PrintLn "@X0A"
PrintLn "Here's an example of how to log on with a middle initial:"
PrintLn
PrintLn " @X0EEnter your first name? @X07JOHN Q. PUBLIC"
PrintLn
PrintLn "@X0AOr any other variation on your user-id may work."
PrintLn
Wait
PrintLn
PrintLn "Please hang up now and try logging in again."
PrintLn
KbdStuff "N" + Chr(13)
Goodbye
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 1 More
; 1 Wait
; 2 Goto
; 5 Let
; 1 Print
; 42 PrintLn
; 3 If
; 1 GetUser
; 1 AdjTime
; 2 InputYN
; 2 InputText
; 6 KbdStuff
; 1 Goodbye
;
;
; ■ Functions used :
;
; 8 +
; 2 ==
; 2 <>
; 1 &&
; 6 Chr()
; 2 YesChar()
;
;------------------------------------------------------------------------------
;
; Analysis flags : A
;
; A - Adjust online time remaining ■ 5
; Program modify the amount of online time remaining, this may
; be a way to bypass time limits
; ■ Search for : ADJTIME
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 0 While/EndWhile
; 0 If/Then or If/Then/Else
; 0 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------